home *** CD-ROM | disk | FTP | other *** search
/ Experience Hawaii / HAWAII.ISO / pc / shared.dir / 14194_Warning-Scripts from John.ls < prev    next >
Encoding:
Text File  |  1996-04-12  |  285 b   |  12 lines
  1. on ROLODEXButton
  2.   set Mysprite to the clickOn
  3.   set currCast to the mouseCast
  4.   puppetSprite(Mysprite, 1)
  5.   set the castNum of sprite Mysprite to currCast + 1
  6.   updateStage()
  7.   delay(15)
  8.   set the castNum of sprite Mysprite to currCast
  9.   updateStage()
  10.   puppetSprite(Mysprite, 0)
  11. end
  12.